home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 901_1000 / DISK0961 / DISK0961.ZIP / DOC.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-01  |  740 b   |  17 lines
  1. 5 KEY OFF:  INPUT "What is today's date (mm/dd/yy)";TODAY$:DATE$=TODAY$
  2. 10 CLS:PRINT "This program assumes that you have a printer with continuous"
  3. 20 PRINT "forms in it for printing the manual.   Please strike any key to"
  4. 30  LINE INPUT "continue. Make sure the file 'MINI.DOC' is in Drive B...";A$
  5. 40 LPRINT CHR$(12): PG.CNT=2
  6. 50 OPEN "B:MINI.DOC" FOR INPUT AS #1
  7. 55 WHILE NOT EOF(1)
  8. 60 LINE INPUT #1,A$
  9. 70 LPRINT A$
  10. 80 LINES=LINES+1: IF LINES=55 THEN GOSUB 1000
  11. 90 WEND
  12. 100  CLOSE:OPEN "autoexec.bat" FOR OUTPUT AS #1: PRINT #1,"BASICA MINI": PRINT #1,CHR$(26): CLOSE:CHAIN "Mini",50,ALL
  13. 110 END
  14. 1000 LPRINT CHR$(12)
  15. 1010 LPRINT "Mini-Manual"; TAB(55); "Page "; PG.CNT:PG.CNT=PG.CNT+1
  16. 1020 LPRINT:LPRINT:LINES =3:RETURN
  17.